;
;  STEPS -- SUBR FOR FOOTPRINTS AROUND PLANT (c) Copyright 1990 Chris Butler
;

;video m

goto mgr
engr:
  set prev_steps 0
  set new_steps  9
  goto top
sched:
  set prev_steps 9
  set new_steps  17
  goto top
invntry:
  set prev_steps 26
  set new_steps 12
  goto top
accounting:
  set prev_steps 38
  set new_steps 26
  goto top
mis:
  set prev_steps 64
  set new_steps 22
  goto top
mgr: 
  set prev_steps 86
  set  new_steps 23
  goto top 

; load footprints
top: 

tran on 15
cload stepr.clp 1 0 1
cload stepd.clp 3 0 1
cload stepl.clp 5 0 1
cload stepu.clp 7 0 1

; display previous steps

pload plan.pcx 1
PALETTE 1	; TEMP
psetbuf 1
pfade 0 2

databegin walk
set i 0
if @prev_steps==0 sillylogic
mark @prev_steps
  putup @ @ @
  set i @i+1
loop
sillylogic:
psetbuf 
pfade 5 1

;  display new steps

waitkey 100
mark @new_steps
  putup @ @ @
  set i @i+1
  waitkey 10
loop
return

walk:
  180 150 1
  195 155 1
  210 150 1
  225 155 1
  240 150 1
  255 155 1
  261 142 3
  267 132 3
  261 122 3

  268 110 1
  273 116 1
  283 125 7
  276 135 7
  283 142 7
  282 155 1  
  297 150 1  
  312 155 1
  327 150 1
  342 155 1
  357 150 1
  372 155 1
  387 150 1
  402 155 1
  408 140 3
  414 130 3
  408 120 3

  415 108 1
  420 114 1
  430 124 7
  423 134 7
  440 133 1
  455 138 1
  470 133 1
  485 138 1
  500 133 1
  510 138 1
  510 128 3
  516 118 3

  523 106 1
  523 122 7
  530 132 7
  523 142 7
  530 152 7
  515 158 5
  505 165 5 
  495 158 5
  490 165 5
  475 170 7
  482 180 7
  475 190 7
  482 200 7
  475 210 7
  482 220 7
  475 230 7
  482 240 7
  475 250 7
  482 260 7
  475 270 7
  482 280 7
  475 290 7
  482 300 7
  475 310 7
  482 320 7
  475 330 7

  482 340 7
  470 346 5
  462 353 5 
  452 346 5
  442 353 5
  432 346 5
  422 353 5
  412 346 5
  402 353 5
  392 346 5
  382 353 5
  372 346 5
  362 353 5
  352 346 5
  342 353 5
  332 346 5
  322 353 5
  320 340 3
  313 330 3
  320 320 3
  313 310 3  
  320 300 3  
  
  315 292 5 
  310 300 5
  300 300 7  
  305 310 7
  300 320 7
  305 330 7
  300 340 7
  305 350 7
  293 346 5
  283 353 5
  273 346 5
  263 353 5
  253 346 5
  243 353 5
  233 346 5
  223 353 5
  213 346 5
  203 353 5
  193 346 5
  183 353 5
  173 346 5
  163 353 5
  153 346 5

dataend